RNAseq analysis workflow

Part 1: clean and normalize data

My data is from GSE84054 (Goh et al. 2017). Title: Transcriptome profiling of ER+ breast cancer primary tumor and its tumorsphere derivative. Overview of the dataset: 12 ER+ primary tumor and tumorspheres. The objective of the authors were to find genes differentially expressed between these two groups.

Download data

# Download dataset
datafile <- "GSE84054_Rawcount_12patientER.txt.gz"
if (!file.exists(datafile)) {
    datafile <- GEOquery::getGEOSuppFiles('GSE84054', makeDirectory = FALSE)
}
expr <- read.delim(datafile,header=TRUE,check.names=FALSE)
dim(expr) # 57268    25

[1] 57268    25

# Display rawcount file
kable(expr[1:5,1:10], format = "html")

	RHB037	RHB038	RHB041	RHB049	RHB050	RHB052	RHB053	RHB350	RHB351
ENSG00000000003	2561	2141	1186	233	742	879	2946	745	273
ENSG00000000005	0	3	12	9	0	1	1	1	8
ENSG00000000419	1170	1299	1560	210	901	737	990	508	332
ENSG00000000457	387	408	199	83	338	242	230	118	65
ENSG00000000460	217	168	121	41	189	94	94	67	34

Check GENEID duplications

It is important to check for GENE ID duplications because we are going to map them to hg19. We need to prevent one to multiple or multiple to one scenarios. It turns out we do not have duplicated GENEIDs.

Explore

Filter out low counts

The objective is to remove the ones with low counts. Why? Filter weakly expressed and noninformative (e.g., non-aligned) features. How? We translate out counts into counts per million cpm(),remove features without at least 1 read per million in n of the samples, where n is the size of the smallest group of replicates

# translate out counts into counts per million
cpms = cpm(expr[,2:25])
rownames(cpms) <- expr[,1]
# get rid of low counts
keep = rowSums(cpms > 1) >= 3
expr_filtered <- expr[keep,]
outliers_removed <- nrow(expr) - nrow(expr_filtered) # 37395
dim(expr_filtered) # 19873    25

[1] 19873    25

# Display rawcount file
kable(expr_filtered[1:5,1:10], format = "html")

		RHB037	RHB038	RHB041	RHB049	RHB050	RHB052	RHB053	RHB350	RHB351
1	ENSG00000000003	2561	2141	1186	233	742	879	2946	745	273
3	ENSG00000000419	1170	1299	1560	210	901	737	990	508	332
4	ENSG00000000457	387	408	199	83	338	242	230	118	65
5	ENSG00000000460	217	168	121	41	189	94	94	67	34
6	ENSG00000000938	45	134	61	132	72	77	79	28	66

Explore: filtered

Identifier mapping

ensembl_id <- as.character(expr_filtered[,1])

EnsDb_trans_ensembl<- ensembldb::select(EnsDb.Hsapiens.v75,
                                         keys = ensembl_id, 
                                         columns="SYMBOL",
                                         keytype="GENEID")

data.frame(EnsDb_trans_ensembl)

nrow(EnsDb_trans_ensembl) # 19856 ids mapped

Unmapped GENEIDs

The 17 unmapped gene ids are actually duplicates. The reason why the previous check did not catch them was because if we change the “R” to “0”, they can be detected. (They are exactly same, except locating on the Y chromosome). So here I am just going to remove them.

test_filtered <- expr_filtered

# merge mapped df EnsDb_trans_ensembl and unmapped df test_filtered
test_filtered <- merge(EnsDb_trans_ensembl,
                       test_filtered, 
                       by.x=1, by.y=1, all.y=TRUE )
# nrow(test_filtered) # 19873
kable(test_filtered[1:5, 1:5], format = "html")  

GENEID	SYMBOL	RHB037	RHB038	RHB041
ENSG00000000003	TSPAN6	2561	2141	1186
ENSG00000000419	DPM1	1170	1299	1560
ENSG00000000457	SCYL3	387	408	199
ENSG00000000460	C1orf112	217	168	121
ENSG00000000938	FGR	45	134	61

# duplicated ensembl id
dup_gene_id <- (test_filtered$GENEID[which(is.na(test_filtered$SYMBOL))])
length(dup_gene_id) # 17

[1] 17

# display the unmapped ensembl ids
kable(test_filtered[which(is.na(test_filtered$SYMBOL)),][,1:5], format = "html")

	GENEID	SYMBOL	RHB037	RHB038	RHB041
19857	ENSGR0000002586	NA	432	2485	3880
19858	ENSGR0000124333	NA	424	555	251
19859	ENSGR0000167393	NA	77	20	35
19860	ENSGR0000168939	NA	48	27	12
19861	ENSGR0000169084	NA	260	278	235
19862	ENSGR0000169093	NA	56	102	111
19863	ENSGR0000169100	NA	9130	5843	12001
19864	ENSGR0000178605	NA	139	83	185
19865	ENSGR0000182162	NA	3	50	67
19866	ENSGR0000182378	NA	68	37	215
19867	ENSGR0000185203	NA	8	47	33
19868	ENSGR0000185291	NA	28	224	104
19869	ENSGR0000197976	NA	62	134	106
19870	ENSGR0000198223	NA	47	251	82
19871	ENSGR0000214717	NA	179	303	406
19872	ENSGR0000223773	NA	33	86	80
19873	ENSGR0000226179	NA	55	23	11

# Since I have proved it, I will directly exclude them from expr_filtered
test_filtered <- test_filtered[-which(is.na(test_filtered$SYMBOL)),]
nrow(test_filtered) # 19856

[1] 19856

expr_filtered <- test_filtered
nrow(expr_filtered) # 19856

[1] 19856

rownames(expr_filtered) <- 1:nrow(expr_filtered)
(num_dup_id <- length(expr_filtered$GENEID[which(duplicated(expr_filtered$GENEID))])) # 0 duplicated

[1] 0

all(EnsDb_trans_ensembl$GENEID == expr_filtered$GENEID) # TRUE

[1] TRUE

all(EnsDb_trans_ensembl$SYMBOL == expr_filtered$SYMBOL) # TRUE

[1] TRUE

Group samples

Categorize the samples based on their cell types.

samples_filtered <- data.frame("patients" = 1:24,"cell_type"=1:24)
rownames(samples_filtered) <- colnames(expr_filtered)[3:ncol(expr_filtered)]

for (i in 1:12){
  samples_filtered$cell_type[i] = "Primary Tumour"
  samples_filtered$patients[i] = i
  samples_filtered$patients[i + 12] = i
}

for (j in 13:24){
  samples_filtered$cell_type[j] = "Sphere"
}

# Add cell_type to sample names
cell_type_indicator <- substring(samples_filtered$cell_type,1,1) # first characters of cell types
rownames(samples_filtered) <- paste0(rownames(samples_filtered), sep="_", cell_type_indicator)

# display grouped format
kable(samples_filtered, format = "html")  

	patients	cell_type
RHB037_P	1	Primary Tumour
RHB038_P	2	Primary Tumour
RHB041_P	3	Primary Tumour
RHB049_P	4	Primary Tumour
RHB050_P	5	Primary Tumour
RHB052_P	6	Primary Tumour
RHB053_P	7	Primary Tumour
RHB350_P	8	Primary Tumour
RHB351_P	9	Primary Tumour
RHB353_P	10	Primary Tumour
RHB354_P	11	Primary Tumour
RHB355_P	12	Primary Tumour
RHB031_S	1	Sphere
RHB032_S	2	Sphere
RHB035_S	3	Sphere
RHB043_S	4	Sphere
RHB044_S	5	Sphere
RHB046_S	6	Sphere
RHB047_S	7	Sphere
RHB344_S	8	Sphere
RHB345_S	9	Sphere
RHB347_S	10	Sphere
RHB348_S	11	Sphere
RHB349_S	12	Sphere

GENE name duplication

• In A1 I showed that there are 41 duplications (12 unique ones), Ruth sugguested to keep them because it is a very small percent. But I find the MDS plot (color by sample) will be a little messy if I keep them. But color by patient totaly works.

dup_gene_name <- sort(table(expr_filtered$SYMBOL),decreasing = TRUE)
length(dup_gene_name[which(dup_gene_name>1)]) # 12

Apply normalization on expr_filtered

# need a matrix with only values
filtered_data_matrix <- as.matrix(expr_filtered[,3:ncol(expr_filtered)])

# Rownames be the ensembl id
rownames(filtered_data_matrix) <- expr_filtered$GENEID

# DEGList object
d <- DGEList(counts=filtered_data_matrix, group=samples_filtered$cell_type)

# Normalization
d <- calcNormFactors(d)

# get normalized counts
normalized_counts <- cpm(d)

normalized_counts <- data.frame(normalized_counts)
normalized_counts <- cbind("SYMBOL" = expr_filtered$SYMBOL, normalized_counts)
normalized_counts <- cbind("GENEID" = expr_filtered$GENEID, normalized_counts)
nrow(normalized_counts) # 19856

[1] 19856

# HUGO symbols as rownames of the dataframe
kable(normalized_counts[1:5,1:5], format = "html")

	GENEID	SYMBOL	RHB037	RHB038	RHB041
ENSG00000000003	ENSG00000000003	TSPAN6	79.809196	63.375225	37.719858
ENSG00000000419	ENSG00000000419	DPM1	36.461054	38.451386	49.614654
ENSG00000000457	ENSG00000000457	SCYL3	12.060195	12.077110	6.329049
ENSG00000000460	ENSG00000000460	C1orf112	6.762435	4.972927	3.848316
ENSG00000000938	ENSG00000000938	FGR	1.402348	3.966502	1.940060

# All rows have a unique HUGO symbols, 
sum(duplicated(rownames(normalized_counts))) # 0

[1] 0

write.table(normalized_counts, file="GSE84054_normalized_count.txt")

Part 2: DE + thresholded over-representation analysis

• Libraries used in A2:
  • Limma(Ritchie et al. 2015)
  • Ensembl Hsapiens v75(Rainer 2017)
  • knitr(Xie 2020)
  • kableExtra(Zhu 2019)
  • heatmap(Gu, Eils, and Schlesner 2016)
  • circlize(Gu et al. 2014)
  • gprofiler2(Kolberg and Raudvere 2019)

The objective of this second assignment is to explore the differentially expressed genes from the cleaned and normalized data in A1. Then rank the thresholded over-representation analysis to highlight the top terms / dominant themes in the top set of genes. Lastly, compare my result with the original literature and find some other supports as well for my result if possible. I make some changes to my assignment one and stored the file as “ammended_A1.Rmd” and imported it here. I will demonstrate briefly what I have changed in general workflow in A1. My summary of the paper can be found at my journal or in A1

Load data

Loaded my normalized data from A1.

normalized_count_data <- read.table(file="GSE84054_normalized_count.txt")
kable(normalized_count_data[1:5, 1:5], type="html")

	GENEID	SYMBOL	RHB037	RHB038	RHB041
ENSG00000000003	ENSG00000000003	TSPAN6	79.809196	63.375225	37.719858
ENSG00000000419	ENSG00000000419	DPM1	36.461054	38.451386	49.614654
ENSG00000000457	ENSG00000000457	SCYL3	12.060195	12.077110	6.329049
ENSG00000000460	ENSG00000000460	C1orf112	6.762435	4.972927	3.848316
ENSG00000000938	ENSG00000000938	FGR	1.402348	3.966502	1.940060

Explore: Normalized

Differential expression

1. Calculate p-values for each of the genes in your expression set. How many genes were significantly differentially expressed? What thresholds did you use and why?

• There are 7464 genes that are below the p-value. The threshold I used is 0.05 because this is what the authors of the paper sugguested that they use.

2. Multiple hypothesis testing - correct your p-values using a multiple hypothesis correction method. Which method did you use? And Why? How many genes passed correction?

• I used FDR correction which is also what the authors of the paper specified. 5033 genes passed the correction. Both the p-value and the correction data are based on the edgeR package, not the limma package. I used the limma package up till the point of calculating differential expression like what is sugguested on the lecture notes.

3. Show the amount of differentially expressed genes using an MA Plot or a Volcano plot. Highlight genes of interest.

• I showed a volcano plot using my edgeR fitted data and highlighed the upregulated to be red and down regulated to be blue.

4. Visualize your top hits using a heatmap. Do you conditions cluster together? Explain why or why not.

• My data clustered perfectly according to their cell types which is what my model design based on. My interpretation for the graph would be that since the colors are opposite to each other in the two different cell types, it means that the genes that are upregulated in tumoursphere would be down regulated in primary tumour samples. The shows a great results that the upregulated genes can be potential biomarkers to track if tumoursphere is present or not.

1. Choice of factors in my model

• I created the MDS by both using “cell_type” and “cell_type” and “patient”. The comparison between the two models is fairly clear: we should only depend on the factor “cell_type”, since there seems to be no correlation with each patient.

2. Define my model design

Based on the two models in part1, I decide to base my model only on “cell_type”

model_design <- model.matrix(~ samples$cell_type)
kable(model_design, type="html")

3. Set up EdgeR object

d = DGEList(counts=filtered_data_matrix, group=samples$cell_type)
d <- estimateDisp(d, model_design_pat)

4. Test whether my data is suitable for edgeR - MeanVar plot

I have shown that my data is suitable for using edgeR for further analysis. The data follows the binomial distribution.

5. Estimate dispersion - BCV plot

The individual dots represent each gene and the blue line is the overall trend line.

6. Genes pass threshold and FDR correction

I used Quasi-likelihood models to fit my data and used QLFTest to test for differential expression. The Quasi-likelihood compares two conditions (primary tumour and tumoursphere) and shows the up and down-regulated genes. The result below that are sorted by p-value. I also inspected the number of genes that satisty my threshold and correction. I choose to use FDR correction based on the paper as well(Goh et al. 2017) . There are 7467 genes pass the p-value = 0.05, and 5033 genes that pass the FDR correction.

	logFC	logCPM	F	PValue	FDR
ENSG00000133574	-10.864552	4.3344790	211.3416	0	0
ENSG00000106483	-12.504407	5.1136480	184.1976	0	0
ENSG00000179144	-10.957441	4.7967197	159.9882	0	0
ENSG00000163563	-9.261757	3.3981949	156.9675	0	0
ENSG00000130300	-12.870252	5.0189032	153.4504	0	0
ENSG00000211668	-11.278848	3.4432853	146.3944	0	0
ENSG00000147113	-10.742034	3.3588694	141.1675	0	0
ENSG00000167286	-10.447530	2.6237953	140.2040	0	0
ENSG00000120279	-9.829420	2.4408378	138.9715	0	0
ENSG00000106952	-7.721763	-0.0200685	138.2581	0	0

x
BH

x
samples$cell_typeSphere

x
glm

7. Up and down-regulated genes

I determined the number of up-regulated genes by selecting every gene that does not pass my p-value: 0.05, and also have a positive log fold change. Down-regulated genes are selected in the same way with a negative log fold change. Stored these data for later enrichment analysis on gProfileR.

# number of genes that are up regulated
length(which(qlf_output_hits$table$PValue < 0.05 
             & qlf_output_hits$table$logFC > 0)) # 1897

# number of genes that are down regulated
length(which(qlf_output_hits$table$PValue < 0.05  
             & qlf_output_hits$table$logFC < 0)) # 5570

# Get those up and down-regulated genes
qlf_output_hits_withgn <- merge(expr_filtered[,1:2],qlf_output_hits, by.x=1, by.y = 0)

upregulated_genes <- qlf_output_hits_withgn$GENEID[which(qlf_output_hits$table$PValue < 0.05 
                                                         & qlf_output_hits$table$logFC > 0)]

downregulated_genes <-qlf_output_hits_withgn$GENEID[which(qlf_output_hits$table$PValue < 0.05 
                                                           & qlf_output_hits$table$logFC < 0)]


# store data - all differentially expressed
unreg_genes_copy <- data.frame(upregulated_genes)
downreg_genes_copy <- data.frame(downregulated_genes)
names(unreg_genes_copy) <- names(downreg_genes_copy)
all_de <- rbind(unreg_genes_copy, downreg_genes_copy)
colnames(all_de) <- "all_de"
write.table(x=all_de,
            file="all_expr_de_genes.txt",sep = "\t",
            row.names = FALSE,col.names = FALSE,quote = FALSE)

# up regulated
write.table(x=upregulated_genes,
            file="expr_upregulated_genes.txt",sep = "\t",
            row.names = FALSE,col.names = FALSE,quote = FALSE)

# down regulated
write.table(x=downregulated_genes,
            file="expr_downregulated_genes.txt",sep = "\t",
            row.names = FALSE,col.names = FALSE,quote = FALSE)

8. Show up and down-regulated genes

I have shown the up and down-regulated genes in a volcano plot by coloring them in red and blue, the code is from (Annick Moisan, n.d.)

9. Test Differential expression - heatmap

To test the differential expression, I used the heatmap and it has shown a clear distinction between up and down regulated genes. There is a clear difference between the primary tumour samples and tumoursphere samples.(They are reversed.) The clustering is very obvious to show that differential expression exists.

Coefficient:  samples$cell_typeSphere 

Thresholded over-representation analysis

Are there any gene sets or pathways that are enriched/over-represented or depleted/under-represented in my list? ### Introduction to PART 2: 1. Which method did you choose and why? * I chose to use g:profiler because it shows me the top term names in KEGG, WP, GO and REAC, which is helpful for me when deciding what type of disease it is most likely to be. 2. What annotation data did you use and why? What version of the annotation are you using? * GO biological process: releases/2019-07-01 * KEGG: KEGG FTP Release 2019-09-30 * Reactome: ensembl classes: 2019-10-2 * WikiPathways: 20190910 3. How many genesets were returned with what thresholds? * The threshold for all the queries: 0.05 * 821 gene sets are returned for all the differentially expressed genes. * 60 gene sets are returned for up-regulated genes. * 1333 gene sets are returned for down-regulated genes.

4. Run the analysis using the up-regulated set of genes, and the down-regulated set of genes separately. How do these results compare to using the whole list (i.e all differentially expressed genes together vs. the up-regulated and down regulated differentially expressed genes separately)?

• The up-regulated gene sets are mostly cellular processes and metabolic processes.
• The top terms for down-regulated gene sets are mostly signaling pathways and metabolic processes/
• When running with both up and down-regulated genes, I found that most of them are dominated by the metabolic and cellular processes (up regulated top terms). Therefore, it convinces me the importance of the up-regulated genes in the cancer. And the result aligns with the paper that states the cancer is of subtype “basal”.
• Below are my results for each up-regulated, down-regulated, and differentially expressed (both).

1. Up regulated genes

There were no REAC found. I used the gprofiler2’s function to query data and also attached the screenshots that I took on their website since the package does not show the number of gene sets each has found.

2. Down regulated genes

The some analysis is apply to down regulated

3. All differentially expressed genes

Interpretation questions

1. Do the over-representation results support conclusions or mechanism discussed in the original paper?

• The paper found 1401 genes being up-regulated with fold change > 2 and FDR < 0.05. I found 1312 which is roughly similar. They also found that ALDH family is up-regulated as well. But I found 3 of them in my upregulated genes. The disease is indicated as 31% of basal-like tumors, 12% (HER2)+ tumors and 10% of luminal tumors, since the top terms of my upregulated genes are metabolic processes, therefore, the result aligns with the paper.
• The paper did not mention about the down-regulated genes.

2. Evidence that support and how they support your results.

• My result #1: ALDH family is found in my up regulated genes. Verification of over-representation of ALDH is an important family in breast cancer by (Vassalli 2019). They consider ALDH family as a biomarker for breast cancer which sugguests that my result (the fact that up-regulated genes contains the ALDH family is verified).
• My result #2: top terms of the upregulated genes are mostly cellular and metabolic processes. (Vasiliou and Nebert 2005) convinces me that my result from g:profiler matches with the basal subtype. The paper states that mutations in ALDH genes causes metabolism errors, for example, Sjögren - Larsson syndrome, type II hyperprolinaemia and γ-hydroxybutyric aciduria and even cancer and Alzheimer’s disease.

Part 3: non-thresholded + network analysis

The objective of this third assignment is to use the ranked file from A2 and perform non-thresholded analysis with GSEA (Version 4.0.3) (Efron and Tibshirani 2019). Then the result is compared to the result from thresholded analysis in A2. Finally, cytoscape (Version 3.7.2, Java 1.8.0_162 by Oracle Corporation)(Lopes et al. 2010) is used to help to create a visualization of the up and down regulated genes along with annotations from the Bader lab. Post analysis is performed with drugBank datasets from Bader lab as well. Other details such as performing the analysis of cytoscape can be retrieved from my Journal

R Libraries used:

• RCurl(Temple Lang 2020)
• knitr(Xie 2020)
• kableExtra(Zhu 2019)
• GSA(Efron and Tibshirani 2019)

Non-thresholded Gene set Enrichment Analysis

Are there any gene sets or pathways that are ranked surprisingly high or low in my ranked list?

1.Get Bader lab gene sets

• The code is inspired by lecture notes: non-thresholded analysis unit.

gmt_url = "http://download.baderlab.org/EM_Genesets/current_release/Human/symbol/"
# list all the files on the server
filenames = getURL(gmt_url)
tc = textConnection(filenames)
contents = readLines(tc)
close(tc)
# get the gmt that has all the pathways and does not include terms inferred from
# electronic annotations(IEA) start with gmt file that has pathways only
rx = gregexpr("(?<=<a href=\")(.*.GOBP_AllPathways_no_GO_iea.*.)(.gmt)(?=\">)", contents, 
    perl = TRUE)
gmt_file = unlist(regmatches(contents, rx))
download.file(paste(gmt_url, gmt_file, sep = ""), destfile = dest_gmt_file)

2. Compute ranks

• I obtained the rank file, computed the ranks and sorted table by ranks. The output file is “expr_RNAseq_ranks.rnk” which is to be loaded into GSEA for further analysis.
• rank = -log10(p-val)*sign(logFC)

# compute ranks
qlf_output_hits_withgn[,"rank"] <- log(qlf_output_hits_withgn$PValue, base = 10) * sign(qlf_output_hits_withgn$logFC)

# sort table by ranks
qlf_output_hits_withgn <- qlf_output_hits_withgn[order(qlf_output_hits_withgn$rank),]

# write gene name and rank to table
write.table(x=qlf_output_hits_withgn[, c(2, ncol(qlf_output_hits_withgn))],
            file="expr_RNAseq_ranks.rnk",sep = "\t",
            row.names = FALSE,col.names = FALSE,quote = FALSE)
kable(head(qlf_output_hits_withgn), caption = "Expr_RNAseq_ranks", format="html") %>%
  kable_styling(bootstrap_options = "hover")

3. Conduct non-thresholded gene set enrichment analysis

I used the computed ranked set of genes to compute the non-thresholded gene set entichment analysis with GSEA_4.0.3.(Efron and Tibshirani 2019) I loaded the rank file “expr_RNAseq_ranks.rnk” and Bader Lab gene set “human_GOBP_AllPathways_no_GO_iea_March_01_2020_symbol.gmt”. The parameters are permutation = 100, no collapse, max = 200, min = 15. The file obtained is: “A3_part1_non_thres.GseaPreranked.1584469398976”. Here is a screenshot before performing the analysis on GSEA.

4. Summarize enrichment results

My data is divided into “POS” and “NEG” which correspond to up-regulatedand down-regulated genes.

• For the “POS” group,
  • Humoral immune response is the top term
  • P-val = 0,
  • 9 genes in its leading edge
  • The top gene associated with this geneset is IGKV2D-28.

processing file: A2.Rmd

  |                                                                                                                               
  |                                                                                                                         |   0%
  |                                                                                                                               
  |..                                                                                                                       |   1%
  ordinary text without R code


  |                                                                                                                               
  |...                                                                                                                      |   3%
label: unnamed-chunk-2

  |                                                                                                                               
  |.....                                                                                                                    |   4%
  ordinary text without R code


  |                                                                                                                               
  |......                                                                                                                   |   5%
label: download data (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |........                                                                                                                 |   7%
  ordinary text without R code


  |                                                                                                                               
  |..........                                                                                                               |   8%
label: samples_prefiltered

  |                                                                                                                               
  |...........                                                                                                              |   9%
  ordinary text without R code


  |                                                                                                                               
  |.............                                                                                                            |  11%
label: check GENEID dup (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |...............                                                                                                          |  12%
  ordinary text without R code


  |                                                                                                                               
  |................                                                                                                         |  13%
label: boxplot_prefiltered (with options) 
List of 1
 $ warning: logi FALSE


  |                                                                                                                               
  |..................                                                                                                       |  15%
  ordinary text without R code


  |                                                                                                                               
  |...................                                                                                                      |  16%
label: density_prefiltered

  |                                                                                                                               
  |.....................                                                                                                    |  17%
  ordinary text without R code


  |                                                                                                                               
  |.......................                                                                                                  |  19%
label: MDS_prefiltered

  |                                                                                                                               
  |........................                                                                                                 |  20%
  ordinary text without R code


  |                                                                                                                               
  |..........................                                                                                               |  21%
label: filter

  |                                                                                                                               
  |...........................                                                                                              |  23%
  ordinary text without R code


  |                                                                                                                               
  |.............................                                                                                            |  24%
label: boxplot_filtered (with options) 
List of 1
 $ warning: logi FALSE


  |                                                                                                                               
  |...............................                                                                                          |  25%
  ordinary text without R code


  |                                                                                                                               
  |................................                                                                                         |  27%
label: unnamed-chunk-3

  |                                                                                                                               
  |..................................                                                                                       |  28%
  ordinary text without R code


  |                                                                                                                               
  |...................................                                                                                      |  29%
label: unnamed-chunk-4

  |                                                                                                                               
  |.....................................                                                                                    |  31%
  ordinary text without R code


  |                                                                                                                               
  |.......................................                                                                                  |  32%
label: identifier mapping (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |........................................                                                                                 |  33%
  ordinary text without R code


  |                                                                                                                               
  |..........................................                                                                               |  35%
label: unmapped GENEIDs

  |                                                                                                                               
  |............................................                                                                             |  36%
  ordinary text without R code


  |                                                                                                                               
  |.............................................                                                                            |  37%
label: samples_filtered

  |                                                                                                                               
  |...............................................                                                                          |  39%
  ordinary text without R code


  |                                                                                                                               
  |................................................                                                                         |  40%
label: check SYMBOL dup (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |..................................................                                                                       |  41%
  ordinary text without R code


  |                                                                                                                               
  |....................................................                                                                     |  43%
label: unnamed-chunk-5

  |                                                                                                                               
  |.....................................................                                                                    |  44%
  ordinary text without R code


  |                                                                                                                               
  |.......................................................                                                                  |  45%
label: setup (with options) 
List of 3
 $ results: chr "hide"
 $ include: logi FALSE
 $ echo   : logi FALSE


  |                                                                                                                               
  |........................................................                                                                 |  47%
  ordinary text without R code


  |                                                                                                                               
  |..........................................................                                                               |  48%
label: load norm data

  |                                                                                                                               
  |............................................................                                                             |  49%
  ordinary text without R code


  |                                                                                                                               
  |.............................................................                                                            |  51%
label: boxplot_normalized (with options) 
List of 1
 $ warning: logi FALSE


  |                                                                                                                               
  |...............................................................                                                          |  52%
  ordinary text without R code


  |                                                                                                                               
  |.................................................................                                                        |  53%
label: density_normalized

  |                                                                                                                               
  |..................................................................                                                       |  55%
  ordinary text without R code


  |                                                                                                                               
  |....................................................................                                                     |  56%
label: MDS-1

  |                                                                                                                               
  |.....................................................................                                                    |  57%
  ordinary text without R code


  |                                                                                                                               
  |.......................................................................                                                  |  59%
label: MDS-2

  |                                                                                                                               
  |.........................................................................                                                |  60%
  ordinary text without R code


  |                                                                                                                               
  |..........................................................................                                               |  61%
label: model

  |                                                                                                                               
  |............................................................................                                             |  63%
  ordinary text without R code


  |                                                                                                                               
  |.............................................................................                                            |  64%
label: d object

  |                                                                                                                               
  |...............................................................................                                          |  65%
  ordinary text without R code


  |                                                                                                                               
  |.................................................................................                                        |  67%
label: meanvar

  |                                                                                                                               
  |..................................................................................                                       |  68%
  ordinary text without R code


  |                                                                                                                               
  |....................................................................................                                     |  69%
label: BCV

  |                                                                                                                               
  |......................................................................................                                   |  71%
  ordinary text without R code


  |                                                                                                                               
  |.......................................................................................                                  |  72%
label: threshold and correction (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |.........................................................................................                                |  73%
  ordinary text without R code


  |                                                                                                                               
  |..........................................................................................                               |  75%
label: up and down-regulated (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |............................................................................................                             |  76%
  ordinary text without R code


  |                                                                                                                               
  |..............................................................................................                           |  77%
label: up_volcano

  |                                                                                                                               
  |...............................................................................................                          |  79%
  ordinary text without R code


  |                                                                                                                               
  |.................................................................................................                        |  80%
label: down_volcano

  |                                                                                                                               
  |..................................................................................................                       |  81%
  ordinary text without R code


  |                                                                                                                               
  |....................................................................................................                     |  83%
label: heatmap

  |                                                                                                                               
  |......................................................................................................                   |  84%
  ordinary text without R code


  |                                                                                                                               
  |.......................................................................................................                  |  85%
label: interpretatin questions (with options) 
List of 1
 $ results: chr "hide"


  |                                                                                                                               
  |.........................................................................................................                |  87%
  ordinary text without R code


  |                                                                                                                               
  |..........................................................................................................               |  88%
label: unnamed-chunk-6 (with options) 
List of 1
 $ include: logi FALSE


  |                                                                                                                               
  |............................................................................................................             |  89%
  ordinary text without R code


  |                                                                                                                               
  |..............................................................................................................           |  91%
label: unnamed-chunk-7

  |                                                                                                                               
  |...............................................................................................................          |  92%
  ordinary text without R code


  |                                                                                                                               
  |.................................................................................................................        |  93%
label: unnamed-chunk-8

  |                                                                                                                               
  |...................................................................................................................      |  95%
  ordinary text without R code


  |                                                                                                                               
  |....................................................................................................................     |  96%
label: unnamed-chunk-9 (with options) 
List of 1
 $ echo: logi FALSE


  |                                                                                                                               
  |......................................................................................................................   |  97%
  ordinary text without R code


  |                                                                                                                               
  |.......................................................................................................................  |  99%
label: unnamed-chunk-10 (with options) 
List of 1
 $ echo: logi FALSE


  |                                                                                                                               
  |.........................................................................................................................| 100%
  ordinary text without R code


/Applications/RStudio.app/Contents/MacOS/pandoc/pandoc +RTS -K512m -RTS A2.utf8.md --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash+smart --output A2.html --email-obfuscation none --self-contained --standalone --section-divs --table-of-contents --toc-depth 1 --template /Library/Frameworks/R.framework/Versions/3.6/Resources/library/rmarkdown/rmd/h/default.html --no-highlight --variable highlightjs=1 --variable 'theme:bootstrap' --include-in-header /var/folders/4h/8ynmzgwd7_z1604r9s1dw5gw0000gn/T//RtmpmewAl1/rmarkdown-str2e1a15f83abd.html --mathjax --variable 'mathjax-url:https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML' --lua-filter /Library/Frameworks/R.framework/Versions/3.6/Resources/library/rmarkdown/rmd/lua/pagebreak.lua --lua-filter /Library/Frameworks/R.framework/Versions/3.6/Resources/library/rmarkdown/rmd/lua/latex-div.lua --variable code_folding=show --variable source_embed=A2.Rmd --include-after-body /var/folders/4h/8ynmzgwd7_z1604r9s1dw5gw0000gn/T//RtmpmewAl1/file2e1a5bd8598f.html --variable code_menu=1 --variable kable-scroll=1 --filter /Applications/RStudio.app/Contents/MacOS/pandoc/pandoc-citeproc 

Down-regulated_top_terms

NAME	SIZE	ES	NES	NOM.p.val	FDR.q.val	FWER.p.val	RANK.AT.MAX	LEADING.EDGE
TGF_BETA_RECEPTOR%IOB%TGF_BETA_RECEPTOR	185	-0.2044902	NA	NA	1	0	1836	tags=15%, list=9%, signal=16%
HALLMARK_ADIPOGENESIS%MSIGDB_C2%HALLMARK_ADIPOGENESIS	193	-0.3041408	NA	NA	1	0	2169	tags=23%, list=11%, signal=26%
HALLMARK_OXIDATIVE_PHOSPHORYLATION%MSIGDB_C2%HALLMARK_OXIDATIVE_PHOSPHORYLATION	197	-0.6852279	NA	NA	1	0	2021	tags=39%, list=10%, signal=43%
HALLMARK_P53_PATHWAY%MSIGDB_C2%HALLMARK_P53_PATHWAY	195	-0.2911640	NA	NA	1	0	2716	tags=24%, list=14%, signal=28%
TRANSPORT TO THE GOLGI AND SUBSEQUENT MODIFICATION%REACTOME DATABASE ID RELEASE 71%948021	155	-0.1743973	NA	NA	1	0	3435	tags=24%, list=17%, signal=29%
MITOTIC ANAPHASE%REACTOME DATABASE ID RELEASE 71%68882	173	-0.4131416	NA	NA	1	0	3058	tags=32%, list=15%, signal=37%

• In the “NEG” group,
  • TGF beta receptor is the top term
  • P-val = 0
  • 185 genes in its leading edge
  • The top gene associated with is PRKCB.

5. Compare to the results from thresholded analysis

I used g:profiler in A2 to conduct thresholded analysis. The result showed that both the up-regulated and the down-regulated genes have metabolic terms associated. Whereas using the non-thresholded methods, immune response seems to be associated with up-regulated genes. Beta-receptor seems to be associated with the down-regulated group which is the same as the result from g:profiler. Both thresholded and non-thresholded over-representation analysis shows that the disease is associated with immune response and metabolic malfunctions. Such result is consistent with the result from the paper, and I have found some of the evidences from the other papers in A2, showing that breast cancer is associated with these top terms.

Visualize Gene set Enrichment Analysis

1. Create an enrichment map

• The following visualization is conducted using Cytoscape (Lopes et al. 2010)
• The parameters I used when creating the enrichment map: FDR was set to 0.01, others are kept as default.
• Basic information: there are 456 nodes and 5087 edges in the resulting map.
• Here is a screenshot that gives information about the creation of the enrichment map.

2. Annotate the enrichment map

I defined the main biological themes by using clicking on “auto annotate” -> “annotate”. The system created circles around each cluster which corresponds to the most frequent node lavles in the cluster. Here is a screenshot of the overview.

3. Manually edit the network

• I made sure that there is no overlap between the labels and the nodes. I also oragnized them to make the interactions clearer. The legend is obtained from Bader lab’s website.
• I did not screenshot the network since it is the same as the resulting graph that also contains the two drugs I picked. The screenshot can be found in the section: " Post analysis - Drug Bank".

4. Collapse to a theme network

• Generally, the major themes I found after collapsing the annotated network: immune responses, cell proliferation, tageting, and signaling.There seems to be no novel pathways.
• Here is an overview of the collapsed graph.

5. Interpretation of the annotated network

• Terms on the left are up-regulated genes and terms on the right are down-regulated genes. The lines shows us the interactions between each most frequent terms.
• On the left side, we can see that the term that has the most interactions with the rest is “response immune immunoglobulin”. It is connected to terms like “lymphocyte proliferation”, “differentiation”, “negative cell regulation”, “signaling”, etc. Elevated level immunoglobulin antibodies is frequently observed in cancers of epithelial origin, including carcinomas of breast, colon, and liver.(Qiu et al. 2003) Therefore, it justifies the reason why this term is up-regulated.
• On the right side, we notice the main term is “APC dedegradation” (with the most genes). Antigen presenting cells (APCs) are immune cells that specialize in presenting an antigen to a T-cell. APC protein acts as a tumor suppressor, therefore, the degradation of APC means that the suppressor is no longer fully supplied which can not stop the disease from expanding. Other terms are related to cell * transport, etc.
• In conclusion, those terms are predicted by the g:profiler in A2 even if they don’t have the exact same names. Therefore, we can conclude that the disease is mostly due to immune response malfunction, which then leads to problems in cell metabolism in various ways.

6. Post analysis - Drug Bank

The reason why I choose to do the post analysis with drugs is because the paper mentioned about finding a target for a drug. The drug is Pacritinib. However, this drug is not annotated, and thus not stored in the Bader Lab file. Therefore, I chose the top drug (Abciximab) (Law et al. 2014) from Bader lab approved drugs file. The paper also mentioned that they use Gemcitabine to treat breast cancer if the disease does not expand further.

• Parameters: Mann Whiteney(One-sided greater): since I do not care whether it targets the up-regulated or down-regulated genes.

• The resulting graph shows that there are no connection for Gemcitabine with any pathways, and a lot of up-regulated genes are targeted by Abciximab. The terms that are targeted are mostly the up-regulated genes, such as “response immune immunoglobin”, to reduce the elevated level of the antibody. It also reduces the level of other cell metabolic terms that are in the same pathway as the “response immune immunoglobin” (discussed in the section above). The main function of this drug is to reduce antibodies, and other over-produced molecules, but not elevating the weak terms (the down-regulated genes).

• The only thing not expected is that Gemcitabine does not target the term “cell proliferation positive” which is what the main object of Gemcitabine. Gemcitabine is a drug that kills the fast-growing cells. Therefore, it is not expected to see that this drug does nothing in this disease pathway.

• It might be hard to see the Gemcitabine, it is right beside Abciximab,.

References

Annick Moisan, Nathalie Villa-Vialaneix, Ignacio Gonzales. n.d. “Practical Statistical Analysis of Rna-Seq Data - edgeR - Tomato Data.”

Efron, Brad, and R. Tibshirani. 2019. GSA: Gene Set Analysis. https://CRAN.R-project.org/package=GSA.

Goh, Jian Yuan, Min Feng, Wenyu Wang, Gokce Oguz, Siti Maryam JM Yatim, Puay Leng Lee, Yi Bao, et al. 2017. “Chromosome 1q21.3 Amplification Is a Trackable Biomarker and Actionable Target for Breast Cancer Recurrence.” Nature Medicine 23 (11). Nature Publishing Group: 1319.

Gu, Zuguang, Roland Eils, and Matthias Schlesner. 2016. “Complex Heatmaps Reveal Patterns and Correlations in Multidimensional Genomic Data.” Bioinformatics.

Gu, Zuguang, Lei Gu, Roland Eils, Matthias Schlesner, and Benedikt Brors. 2014. “Circlize Implements and Enhances Circular Visualization in R.” Bioinformatics 30 (19): 2811–2.

Kolberg, Liis, and Uku Raudvere. 2019. Gprofiler2: Interface to the ’G:Profiler’ Toolset. https://CRAN.R-project.org/package=gprofiler2.

Law, Vivian, Craig Knox, Yannick Djoumbou, Tim Jewison, An Chi Guo, Yifeng Liu, Adam Maciejewski, et al. 2014. “DrugBank 4.0: Shedding New Light on Drug Metabolism.” Nucleic Acids Research 42 (D1). Oxford University Press: D1091–D1097.

Lopes, Christian T, Max Franz, Farzana Kazi, Sylva L Donaldson, Quaid Morris, and Gary D Bader. 2010. “Cytoscape Web: An Interactive Web-Based Network Browser.” Bioinformatics 26 (18). Oxford University Press: 2347–8.

Qiu, Xiaoyan, Xiaohui Zhu, Liang Zhang, Yuntao Mao, Jian Zhang, Peng Hao, Guohui Li, et al. 2003. “Human Epithelial Cancers Secrete Immunoglobulin G with Unidentified Specificity to Promote Growth and Survival of Tumor Cells.” Cancer Research 63 (19). AACR: 6488–95.

Rainer, Johannes. 2017. EnsDb.Hsapiens.v75: Ensembl Based Annotation Package.

Ritchie, Matthew E, Belinda Phipson, Di Wu, Yifang Hu, Charity W Law, Wei Shi, and Gordon K Smyth. 2015. “limma Powers Differential Expression Analyses for RNA-Sequencing and Microarray Studies.” Nucleic Acids Research 43 (7): e47. https://doi.org/10.1093/nar/gkv007.

Temple Lang, Duncan. 2020. RCurl: General Network (Http/Ftp/...) Client Interface for R. https://CRAN.R-project.org/package=RCurl.

Vasiliou, Vasilis, and Daniel W Nebert. 2005. “Analysis and Update of the Human Aldehyde Dehydrogenase (Aldh) Gene Family.” Human Genomics 2 (2). BioMed Central: 138.

Vassalli, Giuseppe. 2019. “Aldehyde Dehydrogenases: Not Just Markers, but Functional Regulators of Stem Cells.” Stem Cells International 2019. Hindawi.

Xie, Yihui. 2020. Knitr: A General-Purpose Package for Dynamic Report Generation in R. https://yihui.org/knitr/.

Zhu, Hao. 2019. KableExtra: Construct Complex Table with ’Kable’ and Pipe Syntax. https://CRAN.R-project.org/package=kableExtra.